; -*- mode: lisp; -*-

(RSG 0 1)
(
    (templ $lenX $lenY $lenZ $material)
    
    (nd Box
        (setExtents $lenX $lenY $lenZ)
        (setMaterial $material)
    )
)
